﻿Friend Class FShowExistingFeatures
    Private mResult As DialogResult
    Public Shadows Function ShowDialog(ByVal owner As IWin32Window _
                                     , ByVal icon32x32 As Drawing.Image _
                                     , ByVal type As String _
                                     , ByVal items As Generic.List(Of Entities.SharedItem) _
                                     , ByVal mediaInfos As Generic.List(Of Entities.MediaInfo)) As DialogResult
        PictureBox1.Image = icon32x32
        Label1.Text = String.Format(Label1.Text, type)

        For Each clsItem As Entities.SharedItem In items
            With lvwExisting.Items.Add(clsItem.Name)
                .SubItems.Add(Framework.Misc.ToReadableFileSize(clsItem.TotalSize))
                .SubItems.Add(clsItem.Comment)
                .Tag = clsItem
            End With
        Next

        MyBase.ShowDialog(owner)
        Return mResult
    End Function

End Class